home *** CD-ROM | disk | FTP | other *** search
Text File | 1996-04-03 | 4.5 KB | 174 lines | [TEXT/MPS ] |
- ###########################################################
- # Copyright © 1984-96 by Apple Computer, Inc. All rights reserved.
- #
- # Clean up de-rezzed views
- # originally authored by Curtis Faith, used by permission.
- #
- # Modification History
- # 7-29-91 csk modified to support 3.0 'View' clean up
- ###########################################################
-
-
- set exit 0
- IF "{1}" == ""
- target `GetFileName -b "Get" -m "View File to Cleanup"`
- else
- target "{1}"
- end
- if {status} == 0
- find •
- replace -c ∞ /[∂t]+/ ''
- else
- set exit 1
- exit
- end
-
- find •
- replace -c ∞ /∂/∂*≈∂*∂// ""
-
- find •
- replace -c ∞ /MAThreeOh,/ "MAThreeOh,ß∂n∂t∂t"
- find •
- replace -c ∞ /NoSubviews/ "ß∂n∂t∂tNoSubviews"
- find •
- replace -c ∞ /handlesHelp,/ "ß∂n∂t∂thandlesHelp,"
- find •
- replace -c ∞ /doesntHandleHelp,/ "ß∂n∂t∂tdoesntHandleHelp,"
- find •
- replace -c ∞ /ToBeTarget,/ "ToBeTarget,ß∂n∂t∂t"
- find •
- replace -c ∞ /FirstClick,/ "FirstClick,ß∂n∂t∂t∂t"
- find •
- replace -c ∞ /orceOnScreen,/ "orceOnScreen,ß∂n∂t∂t∂t"
-
- find •
- replace -c ∞ /ViewSignatureAndClassname / "ß∂n∂tViewSignatureAndClassnameß∂n∂t∂t"
-
- find •
- replace -c ∞ /NoDrawingEnvironment/ "ß∂n∂t∂tNoDrawingEnvironment"
- find •
- replace -c ∞ /DrawingEnvironmentLocalObject/ "ß∂n∂t∂tDrawingEnvironmentLocalObject"
- find •
- replace -c ∞ /DrawingEnvironmentClassIDAndClassname/ "ß∂n∂t∂tDrawingEnvironmentClassIDAndClassname"
- find •
- replace -c ∞ /DrawingEnvironmentSignatureAndClassname/ "ß∂n∂t∂tDrawingEnvironmentSignatureAndClassname"
-
- find •
- replace -c ∞ /NoAdorners/ "ß∂n∂t∂tNoAdorners"
- find •
- replace -c ∞ /AdornerListLocalObject/ "ß∂n∂t∂tAdornerListLocalObject"
- find •
- replace -c ∞ /AdornerListClassIDAndClassname/ "ß∂n∂t∂tAdornerListClassIDAndClassname"
- find •
- replace -c ∞ /AdornerListSignatureAndClassname/ "ß∂n∂t∂tAdornerListSignatureAndClassname"
-
- find •
- replace -c ∞ /AdornFirst/ "ß∂n∂t∂t∂tAdornFirst"
- find •
- replace -c ∞ /AdornBefore/ "ß∂n∂t∂t∂tAdornBefore"
- find •
- replace -c ∞ /DrawView/ "ß∂n∂t∂t∂tDrawView"
- find •
- replace -c ∞ /AdornAfter/ "ß∂n∂t∂t∂tAdornAfter"
- find •
- replace -c ∞ /AdornLast/ "ß∂n∂t∂t∂tAdornLast"
-
- find •
- replace -c ∞ /∂nIncludeAt ∂{/ "∂nß∂n∂t∂tIncludeAt ∂{"
- find •
- replace -c ∞ /∂nDefaultView ∂{/ "∂nß∂n∂t∂tDefaultView ∂{"
- find •
- replace -c ∞ /∂nWindow ∂{/ "∂nß∂n∂t∂tWindow ∂{"
- find •
- replace -c ∞ /∂nFloatWindow ∂{/ "∂nß∂n∂t∂tFloatWindow ∂{"
- find •
- replace -c ∞ /∂nScroller ∂{/ "∂nß∂n∂t∂tScroller ∂{"
- find •
- replace -c ∞ /∂nDialogView ∂{/ "∂nß∂n∂t∂tDialogView ∂{"
- find •
- replace -c ∞ /∂nTargetBorderView ∂{/ "∂nß∂n∂t∂tTargetBorderView ∂{"
- find •
- replace -c ∞ /∂nControl ∂{/ "∂nß∂n∂t∂tControl ∂{"
- find •
- replace -c ∞ /∂nButton ∂{/ "∂nß∂n∂t∂tButton ∂{"
- find •
- replace -c ∞ /∂nCheckBox ∂{/ "∂nß∂n∂t∂tCheckBox ∂{"
- find •
- replace -c ∞ /∂nRadio ∂{/ "∂nß∂n∂t∂tRadio ∂{"
- find •
- replace -c ∞ /∂nScrollBar ∂{/ "∂nß∂n∂t∂tScrollBar ∂{"
- find •
- replace -c ∞ /∂nScrollerScrollBar ∂{/ "∂nß∂n∂t∂tScrollerScrollBar ∂{"
- find •
- replace -c ∞ /∂nCluster ∂{/ "∂nß∂n∂t∂tCluster ∂{"
- find •
- replace -c ∞ /∂nIcon ∂{/ "∂nß∂n∂t∂tIcon ∂{"
- find •
- replace -c ∞ /∂nSmallIcon ∂{/ "∂nß∂n∂t∂tSmallIcon ∂{"
- find •
- replace -c ∞ /∂nPattern ∂{/ "∂nß∂n∂t∂tPattern ∂{"
- find •
- replace -c ∞ /∂nPicture ∂{/ "∂nß∂n∂t∂tPicture ∂{"
- find •
- replace -c ∞ /∂nPopup ∂{/ "∂nß∂n∂t∂tPopup ∂{"
- find •
- replace -c ∞ /∂nStaticText ∂{/ "∂nß∂n∂t∂tStaticText ∂{"
- find •
- replace -c ∞ /∂nEditText ∂{/ "∂nß∂n∂t∂tEditText ∂{"
- find •
- replace -c ∞ /∂nNumberText ∂{/ "∂nß∂n∂t∂tNumberText ∂{"
- find •
- replace -c ∞ /∂nTEView ∂{/ "∂nß∂n∂t∂tTEView ∂{"
- find •
- replace -c ∞ /∂nTabTEView ∂{/ "∂nß∂n∂t∂tTabTEView ∂{"
- find •
- replace -c ∞ /∂nGridView ∂{/ "∂nß∂n∂t∂tGridView ∂{"
- find •
- replace -c ∞ /∂nTextGridView ∂{/ "∂nß∂n∂t∂tTextGridView ∂{"
- find •
- replace -c ∞ /∂nTextListView ∂{/ "∂nß∂n∂t∂tTextListView ∂{"
- find •
- replace -c ∞ /∂nOTHER ∂{/ "∂nß∂n∂t∂tOTHER ∂{"
- find •
- replace -c ∞ /∂nView ∂{/ "∂nß∂n∂t∂tView ∂{"
-
- find •
- replace -c ∞ /([¬ß]«1»)®1[∂n]«1»/ '®1'
-
- find •
- replace -c ∞ /([¬ß]«1»)®1[∂n]«1»/ '®1'
- find •
- replace -c ∞ /plain,0,∂{0x0,0x0,0x0∂},∂"∂"/ "systemFont"
- find •
- replace -c ∞ /plain,9,∂{0x0,0x0,0x0∂},∂"A∂"/ "applFont9"
- find •
- replace -c ∞ /plain,12,∂{0x0,0x0,0x0∂},∂"A∂"/ "applFont12"
- find •
- replace -c ∞ /plain,0,∂{0x0,0x0,0x0∂},∂"A∂"/ "applFont12"
- find •
- replace -c ∞ /∂{0x0,0x0,0x0∂}/ "black"
- find •
- replace -c ∞ /∂{0,0,0,0∂}/ "noInset"
- find •
- replace -c ∞ /∂{∂{/ "∂{∂{∂n∂n∂t"
- find •
- replace -c ∞ /∂},∂'/ "∂}, ∂n∂n∂t∂'"
- find •
- replace -c ∞ /∂}∂};/ "∂n∂t∂}∂n∂};"
- find •
- replace -c ∞ /,([¬ ])®1/ ", ®1"
- find •
- replace -c ∞ /∂};resource/ "∂};∂n∂nresource"
- find •
- replace -c ∞ /ß/ ""
-
- find •
- replace -c ∞ /∂t∂t∂{∂n/ "∂t∂{∂n"
- set exit 1
- IF "{1}" == "-s"
- save "{target}"
- end
- IF "{2}" == "-s"
- save "{target}"
- end
-